home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Entertainment / Strategy / Robots / RoboWar / More Robots / Ghost / Ghost
Encoding:
Text File  |  1990-10-18  |  972 b   |  14 lines  |  [RobW/RWAR]
  1. {Ghost - Deadlier than its AD&D counterpart
  2. Matthew Sakai
  3. IX a.d. Kal. May anno domini MCMXC (4/23/90)}
  4.  
  5. start: random 72 / 1 + speedx' store random 72 / 1 + speedy' store speedy speedx arctan aim' store main jump
  6. main: x 200 > negx if energy 140 > shoot if y 200 > negy if radar rund if x 100 < posx if y 100 < posy if range runn if main jump
  7. negx: random -72 / 1 - speedx' store speedx speedy arctan aim' store return
  8. negy: random -72 / 1 - speedy' store speedx speedy arctan aim' store return
  9. posx: random 72 / 1 + speedx' store speedx speedy arctan aim' store return
  10. posy: random 72 / 1 + speedy' store speedx speedy arctan aim' store return
  11. shoot: 20 missile' store speedx chs speedx' store speedy chs speedy' store aim 180 + aim' store return
  12. rund: radar 80 < junk if speedx chs speedx' store speedy chs speedy' store aim 180 + aim' store return
  13. runn: range 80 < junk if speedx chs speedx' store speedy chs speedy' store aim 180 + aim' store return
  14. junk: drop return